home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / wb / czesc_2 / iobject / demo_fr.c < prev    next >
C/C++ Source or Header  |  1993-03-31  |  7KB  |  330 lines
  1. /* Essai des objets V0.15
  2.  * Thu Feb  4 12:25:08 1993
  3.  */
  4.  
  5.  
  6. #define  INTUITION_PREFERENCES_H 0
  7. #include <intuition/intuition.h>
  8. #include "IObject.h"
  9.  
  10. /* Je ne veux utiliser que les fontes de la ROM donc je n'ouvre pas la */
  11. /* diskfont.library et je mets DiskfontBase à NULL */
  12. CPTR DiskfontBase=NULL;
  13.  
  14. struct Window *window=NULL;
  15.  
  16. struct NewWindow new_window=
  17. {
  18.     50, 25,      /* Position de la fenêtre */
  19.     480, 125,    /* Taille de la fenêtre */
  20.     0, 1,
  21.     CLOSEWINDOW|IDCMP_CYCLE|IDCMP_CHECK|IDCMP_STRING|IDCMP_BUTTON|IDCMP_STRING|
  22.     IDCMP_INTEGER|IDCMP_SCROLLER|VANILLAKEY,   /* IDCMPFlags */
  23.     SMART_REFRESH|WINDOWCLOSE|WINDOWDRAG|WINDOWDEPTH|ACTIVATE|RMBTRAP,    /* Flags*/
  24.     NULL,
  25.     NULL,
  26.     "Test de IObject.lib", /* Titre de la fenetre */
  27.     NULL,
  28.     NULL,
  29.     0, 0,
  30.     0, 0,
  31.     WBENCHSCREEN   /* Type: fenetre Workbench. */
  32. };
  33.  
  34.  
  35. struct TextAttr font=
  36. {
  37.     "topaz.font",
  38.     8,
  39.     FS_NORMAL,
  40.     FPF_ROMFONT
  41. };
  42.  
  43.  
  44. STRPTR text[]=    /* tableau de chaines pour le cycle */
  45. {
  46.     "IObject.lib",
  47.     "is very",
  48.     "useful.",
  49.     NULL    /* NOTEZ-BIEN: il faut un NULL à la fin du tableau de chaines */
  50. };
  51.  
  52. struct NewCycle newcycle=
  53. {
  54.     203, 17,
  55.     122, 14,
  56.     LABEL_LEFT|LABEL_HOT_KEY,
  57.     0,
  58.     "C_ycle",
  59.     &font,
  60.     text        /* tableau de chaine de caracteres */
  61. };
  62.  
  63. struct NewScroller newscroller=
  64. {
  65.     358, 28,
  66.     106, 11,
  67.     LABEL_ABOVE,
  68.     0,
  69.     "Scroller",
  70.     &font,
  71.     0,        /* Pos = 0 */
  72.     25,        /* Partie visible 25 */
  73.     100        /* Maximum 100 */
  74. };
  75.  
  76.  
  77. struct NewButton newbutton=
  78. {
  79.     22, 17,
  80.     94, 14,
  81.     LABEL_INSIDE|LABEL_HOT_KEY,
  82.     0,
  83.     "_Button",
  84.     &font
  85. };
  86.  
  87.  
  88. struct NewButton newtoggle=
  89. {
  90.     331, 97,
  91.     140, 14,
  92.     LABEL_INSIDE|LABEL_HOT_KEY|LABEL_PEN2,
  93.     BT_TOGGLE,        /* le bouton est interrupteur */
  94.     "_Toggle Button",
  95.     &font
  96. };
  97.  
  98.  
  99. struct NewCheck newcheck=
  100. {
  101.     403, 74,
  102.     20, 16,
  103.     LABEL_LEFT|LABEL_HOT_KEY,
  104.     0,
  105.     "_Check",
  106.     &font
  107. };
  108.  
  109.  
  110. struct NewInteger newint=
  111. {
  112.     256, 42,
  113.     72, 14,
  114.     LABEL_RIGHT|LABEL_HOT_KEY,
  115.     STR_CENTER,        /* l'entier est centré dans l'IObject */
  116.     "_Integer",
  117.     &font
  118. };
  119.  
  120. struct NewString newstr=
  121. {
  122.     8, 38,
  123.     162, 12,
  124.     LABEL_RIGHT|LABEL_HOT_KEY,
  125.     STR_SINGLEBORD,        /* Bordure simple */
  126.     "_String",
  127.     &font,
  128.     "Welcome to IObject.lib",        /* texte initial */
  129.     40        /* 40 caracteres au maximum */
  130. };
  131.  
  132. /* identificateur pour les IObject */
  133. #define ID_CYCLE        0
  134. #define ID_SCROLLER    1
  135. #define ID_BUTTON        2
  136. #define ID_CHECK        3
  137. #define ID_INTEGER    4
  138. #define ID_STRING        5
  139. #define ID_TGBUTTON    6
  140.  
  141. #define ID_MIN            ID_CYCLE
  142. #define ID_MAX            ID_TGBUTTON
  143.  
  144. CPTR EZGadget[ID_MAX + 1]={0};        /* Tableau d'IObject */
  145.  
  146. struct NewTextArea newtextarea=
  147. {
  148.     10, 64,
  149.     312, 57,
  150.     LABEL_ABOVE,
  151.     TAF_CLIP_TEXT,        /* le texte qui dépasse se poursuit à la ligne suivante */
  152.     "TextArea",
  153.     &font,
  154.     1,3,
  155.     1,            /* un pixel entre deux lignes */
  156.     0x03        /* bitplanes 1 et 2 utilisés */
  157. };
  158.  
  159. CPTR textarea=NULL;        /* pointeur sur le TextAera */
  160.  
  161. UBYTE HotKeyTable[ID_MAX+1];    /* tableau pour gerer les raccourcis clavier */
  162.  
  163.  
  164. /*
  165.  * Cherche un caractère dans un tableau de caracteres
  166.  * Renvoie l'index du caractère dans le tableau ou -1 s'il n'y est pas
  167. */
  168. WORD FindHotKey(UBYTE hotkey, UBYTE *table, UWORD len)
  169. {
  170.     UWORD ind=0;
  171.  
  172.     while (len--)
  173.     {
  174.         /* toupper si on ne veut pas faire la difference entre majuscule et minuscule */
  175.         if (toupper(*table++) == toupper(hotkey))
  176.             return (ind);
  177.         ind++;
  178.     }
  179.     return (-1);
  180. }
  181.  
  182.  
  183. /*
  184.  * Libere les ressources
  185. */
  186. VOID clean_exit(void)
  187. {
  188.     COUNT i;
  189.  
  190.     if (window) CloseWindow(window);
  191.     for (i = ID_MIN; i <= ID_MAX; i++)        /* libère tous les object */
  192.         if (EZGadget[i])
  193.             FreeObject(EZGadget[i]);
  194.  
  195.     if (textarea)    FreeTextArea(textarea);
  196.     ExitEasyGadget();        /* IL FAUT appeler ExitEasyGadget() avant de partir */
  197.     exit();
  198. }
  199.  
  200.  
  201. main()
  202. {
  203.     struct IntuiMessage *message;
  204.     BOOL close_me;
  205.     COUNT i;
  206.  
  207.     /* On ouvre la fenetre */
  208.     window = (struct Window *) OpenWindow( &new_window );
  209.  
  210.     /* fenetre ouverte ? */
  211.     if(!window)
  212.         clean_exit();
  213.  
  214.     /* Initialiser IObject.lib */
  215.     if (!InitEasyGadget())
  216.         clean_exit();
  217.  
  218.     /* cree le TextArea, on s'en va si il y a une erreur */
  219.     if (!(textarea = CreateTextArea(&newtextarea, window->RPort)))
  220.         clean_exit();
  221.  
  222.     /* Creer les objets */
  223.     EZGadget[ID_CYCLE]        = CreateCycle(&newcycle, ID_CYCLE);
  224.     EZGadget[ID_SCROLLER] = CreateScroller(&newscroller, ID_SCROLLER);
  225.     EZGadget[ID_BUTTON]     = CreateButton(&newbutton, ID_BUTTON);
  226.     EZGadget[ID_CHECK]        = CreateCheck(&newcheck, ID_CHECK);
  227.     EZGadget[ID_INTEGER]    = CreateInteger(&newint, ID_INTEGER);
  228.     EZGadget[ID_TGBUTTON] = CreateButton(&newtoggle, ID_TGBUTTON);
  229.     EZGadget[ID_STRING]     = CreateString(&newstr, ID_STRING);
  230.  
  231.     /* Verifier que les objects ont été crées */
  232.     for (i = ID_MIN; i <= ID_MAX; i++)
  233.         if (EZGadget[i] == NULL)
  234.             clean_exit();
  235.  
  236.     /* ajouter les objets à la fenetre et les afficher */
  237.     for (i = ID_MIN; i <= ID_MAX; i++)
  238.         if (EZGadget[i])
  239.         {
  240.             AddObjectToWindow(EZGadget[i], window, NULL);
  241.             DisplayObject(EZGadget[i]);
  242.         }
  243.  
  244.     /* affiche un message de bienvenue */
  245.     TAPuts(textarea, "Welcome in IObject.lib");
  246.  
  247.     /* remplit le tableau pour gerer les raccourcis-clavier */
  248.     for (i = ID_MIN; i <= ID_MAX; i++)
  249.         HotKeyTable[i] = GetHotKey(EZGadget[i]);
  250.  
  251.     /* l'entier doit être compris entre -5000 et 5000 */
  252.     ModifyObject(EZGadget[ID_INTEGER], 0, -5000, 5000);
  253.  
  254.     /* On reste dans la boucle tant qu'on a pas cliqué dans le gadget de fermeture */
  255.     close_me = FALSE;
  256.     while(close_me == FALSE)
  257.     {
  258.         /* attendre un évenement */
  259.         Wait(1 << window->UserPort->mp_SigBit);
  260.  
  261.         /* Recuperer l'IntuiMessage */
  262.         while(message = (struct IntuiMessage *) GetMsg(window->UserPort))
  263.         {
  264.             struct IntuiMessage msg;
  265.             BOOL changed;
  266.             CPTR obj;
  267.             UWORD ID;
  268.  
  269.             changed = FALSE;
  270.             msg = *message;            /* recopier le message */
  271.             ReplyMsg(message);
  272.  
  273.             /* Traiter l'evenement */
  274.             switch( msg.Class )
  275.             {
  276.                 case CLOSEWINDOW:    /* CloseWindow gadget => on s'en va */
  277.                     close_me=TRUE;
  278.                     break;
  279.  
  280.                 case VANILLAKEY:    /* Raccourcis-clavier */
  281.                     if ((ID = FindHotKey(msg.Code, HotKeyTable, ID_MAX+1)) != -1)
  282.                     {
  283.                         obj = EZGadget[ID];
  284.                         ActivateObject(obj);
  285.                         changed = TRUE;
  286.                     }
  287.                     break;
  288.  
  289.                 default:
  290.                     if (obj = FindObjectMsg(&msg))
  291.                     {
  292.                         ID = GetObjectID(obj);
  293.                         changed = SendMsgToObject(obj, &msg);
  294.                     }
  295.                     break;
  296.             }
  297.  
  298.             if (changed)
  299.             {
  300.                 switch (ID)
  301.                 {
  302.                     case ID_CYCLE:
  303.                         TAPrintf(textarea, "Option %s selected.\n", text[ObjectValue(obj)]);
  304.                         break;
  305.                     case ID_SCROLLER:
  306.                         TAPrintf(textarea, "Position = %ld.\n", ObjectValue(obj));
  307.                         break;
  308.                     case ID_BUTTON:
  309.                         TAPuts(textarea, "Button pressed."); 
  310.                         break;
  311.                     case ID_CHECK:
  312.                         if (ObjectValue(obj))
  313.                             TAPuts(textarea, "Check is marked.");
  314.                         break;
  315.                     case ID_INTEGER:
  316.                         TAPrintf(textarea, "Integer Value is %ld.\n", ObjectValue(obj));
  317.                         break;
  318.                     case ID_STRING:
  319.                         TAPrintf(textarea, "You have entered the text: %s.\n", ObjectValue(obj));
  320.                         break;
  321.                     case ID_TGBUTTON:
  322.                         TAPrintf(textarea, "Button is %s.\n", ObjectValue(obj) ? "On" : "Off");
  323.                         break;
  324.                 }
  325.             }
  326.         }
  327.     }
  328.     clean_exit();
  329. }
  330.